home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / mackun.sit / Mackun / É}ÉbÉNÉì1.0(ÉxÅ[É^î≈) / background_3816.txt < prev    next >
Text File  |  1990-05-15  |  2KB  |  114 lines
  1. -- background: 3816 from stack: in.0(├ëx├à[├ë^├«Γëê)
  2. -- bmap block id: 3983
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menubar
  9.   set the loc of bkgnd button "menubar" to 256,6
  10.   set the hilite of bkgnd button "menubar" to true
  11. end openCard
  12.  
  13. on moveLevel
  14.   get the loc of target
  15.   put item 1 of it into X1
  16.   put item 2 of it into Y1
  17.   get the rect of card field "LevelF"
  18.   put item 1 of it into Xmin
  19.   put item 3 of it into Xmax
  20.  
  21.   repeat while true
  22.     if the mouse is up
  23.     then
  24.     exit moveLevel
  25.   else
  26.     get the mouseLoc
  27.     put item 1 of it into X2
  28.     put item 2 of it into Y2
  29.     if X2>Xmax
  30.     then
  31.     put Xmax into X2
  32.     set the loc of target to X2,Y1
  33.   end if
  34.   if X2<Xmin
  35.   then
  36.   put Xmin into X2
  37.   set the loc of target to X2,Y1
  38. end if
  39. set the loc of target to X2,Y1
  40. end if
  41. end repeat
  42. end moveLevel
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50. -- part 1 (button)
  51. -- low flags: 00
  52. -- high flags: C004
  53. -- rect: left=0 top=0 right=12 bottom=512
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 10
  59. -- style flags: 0
  60. -- line height: 13
  61. -- part name: menubar
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   get the loc of target
  65.   put item 1 of it into X
  66.   put item 2 of it into Y
  67.  
  68.   if the hilite of target  is true
  69.   then
  70.   show menubar
  71.   set the loc of bkgnd button "menubar" to 256,25
  72.   set the hilite of target to false
  73. else
  74.   hide menubar
  75.   set the loc of bkgnd button "menubar" to 256,6
  76.   set the hilite of target to true
  77. end if
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 2 (field)
  83. -- low flags: 80
  84. -- high flags: 0000
  85. -- rect: left=2 top=67 right=339 bottom=510
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 0
  89. -- font id: 16384
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Idea Text
  94.  
  95.  
  96. -- part 3 (button)
  97. -- low flags: 00
  98. -- high flags: 2001
  99. -- rect: left=465 top=306 right=332 bottom=496
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 6720 / 6720
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: éαé╟éΦ
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   visual effect  barn door close
  111.   go back
  112. end mouseUp
  113.  
  114.